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IHTROBUCTIOH 

One of the projects in Artificial Intelligence !■ the 
block-piling automaton. OiTen a pila of rectangular 
blocks on top of each other, the system "looks" at this 
configuration and mechanically piles up the exact copy, 
seleoting the right blocks from a supply. There is Just 
one mechanical arm which performs the construction of 
the configuration-copy, so that only one block can be 
handled at the time. Usually, the order In which these 
single blocks have to be piled up cannot be uniquely 
determined in a straight forward manner. The configu- 
ration of Flg.la can dearly be built up in the order 

1-2tM as wen as 1-2-4-3, 



nn m 




Jig.l 



The slight modification in Pig.lb shows what problem 

can arise. 1-2-3-4 clearly works, but 1-2-4-3 Implies 
the. state of construction 1-2-4 which Is unstable and 
hence not realizable. It is therefore neceaeary that 
each etate of construction la tested for stability before 
a particular construction strategy ie selected. 



The existing program handles configurations in 
which two sides of each (rectangular) block are horizon- 
tal* Fig* 2 shove a typical pile. Chapter X gives a brief 
description of how these cases are treated. 

The main purpose of this paper- is to discuss a 
generalization of the stability teat to arbitrary confi-' 
guratlons. Fig. 3 shows a typical case. The essential 
innovation is the occurrence of friction forces. In 
chapter HI the stability criteria are derived, and a 
— program Is -desig ned wh ich porforns the stability testr 





Pig. 2 
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T. CONFIOORATIOHS WITHOOT FRICTION 



X. Statics 

The existing program handles configuration in which two 
aldsa of each block are horizontal aa ahown in Pig. 2. 
Thia reetriction assures that only vertical forces 
occur, the weights of the reotangular Bolide and the 
corresponding reaction forces. By an assumption which 
reflects the inevitable inaocuraolaa of the blocks, re- 
action forcea can only occur at 

(I) vertices of blocks and 

(II) interaeotlona of line segments 

as ahown in Fig. 4. Fig. 5 showB a typical constellation 
acting on q single block. 

A 




Fig. A 




There are three equations whlclr serve to determine" 



unknown forcea Tf^t 



Ep i " ° 
£M X -0 

r«J-0 



M? and M? are the moments with reopeot to the x- and 
y-axie respectively. - 

If there are n blocks, we hare 3n equations for 3m 
unknown forces, whore mi n In general. If m » n the 
system ie called statistically detejminate. But usually 
ip,in, and the forces cannot he deteimined uniquely. 

2. Stability 

A simple rule for atahllity la the following: given that 
all foroea have been Introduced with the directional 
sense of rig. 5. l»e, pointing towards th* block, then 
the configuration le stable, Iff there exists a solution 
to the in equations such that no fores Is negative. This 
le quite obvious eince a negative force would mean that 
two blocks try to separate and the reaction force must 
keep then together. Since there is no glue or chewing 
gum in between, this type of force cannot occur and the 

blocks tumble. 

■ 
■ 

3. Program " t 

The program that executes this stability test works 
as follows. As preliminary manipulations 

(1) the in equations for the 3m unknown forces 

ars fozmulated 
(li) iLm-n) forces are temporarily treated as con- 
stents while the equations are solved for each 
of the remaining 3n forces 



* 
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(iiij ths solutione are brought Into the form 
shown below where each b, 4 0. 

positive *1 " b l + ^L,3a+l X 3n+I * •« 4 «l f A 

equations . 

. *k " \ + a k r 3n + l I 3a*l * — * %»** 

negative "^+1 ■ *k+l + Vl» 3n+l x 3n+l + *" + ■k+i f .A 

equations * 

" x 3n " *3ft * a 3n,3n+l x 3n*l + '•• * *3n,mS 

The actual stability teeting program tries to get rid 
of the "negative equations", because if all equations 
are positive, the variables on the HH8 can be set to Eero 
and the stability requirement is aatlafied. ThiB is done 
by substituting a RHS-variable with negative coeffi- 
cient for the negative LHS-variable. If one finally 
ends up, however, with a negative equation which has 
only positive coeffioients on the RHS, this equation 
can never be satisfied with positive forces and the 
configuration ia unstable. 

Prom a more theoretical point of view the program 
makes use of the following theorem! Given a block con- 
figuration with 11 unknown forceB and described by N 
equations, then if there exists a Btable solution at 
all, there must be one with M-N foroes set to nero. 



Th<a ja ±>*r> flow *h»?H: qf the pro gram 



Start 

I 



If for any i b.»0, choose the sign of the i 
equation eo that it ie poaitive. Then put this 
equation at top of list. 



(ho — rj A re there any negative equati ons . ? 
tower 



\atablei. 



ye B 



(no poes each negative equation have at least one 
tower 
un- [negative coefficient, a. .< 0, on the EHS ? 
a table i „.. " 



yes 



Find the first negative coefficient, a_^ ■», on the 

RH5 of the laat negative equation. Store the value of J. 



Find i corresponding to the minimum of 
* 



X 



hjl : a ij<°) 



Solve the i equation for x 



I 



i 



Substitute for x? in all other equations 



Put the equation for x* at top of liet 



i 



lis there a positive equation with b7"0 and 



a li £0 for all J ? 



no 



yea 



Set x.vOf and set x.-O for each J such that a, , <; O 
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II. 2-DIMENSIONAL COHFIGURATIONS WITH PHICTIOW 

1. Statics 

Before extending the dieouaeion to the general 3-dimen- 
sional case with friction we consider an easier situation 
which has some academic importance, leade to a simple 
solution and also shows an essential new feature which 
one encounters in the general case* Fig. 6 shows a typical 
2-dimenBional configuration with friction- 




Pig. 6 




^Tt'la intuitively elear tha^fr r eu l augls 4~may q r na y no t 

slide downwards depending on the friction between 4 and 1, 
and 4 and 2» The reaction force in the touching point 
can he decomposed into forces N and }f t normal and paral- 
lel to the edge of reotangle 4, respectively. (yig* 7) # 
N can only be positive and la quite alike the reaction 
force encountered in the model without friction, y is 
the friotion force and stands for the resistance of two 
bodies against sliding on each other, as long as they 
are still at rest. Clearly this resistance cannot be 



unlimited, and depending on the surfaces of the bodies 
and on the force by which they are pressed on each 
other t some reaction 7 might exceed that limit and cannot 
be "produced" by the system - the blocks start eliding 
and the configuration is unstable* 

Experiments showed that [P| * m-N is a good appro* 
ximation of this upper limit, m- is a surface parameter 
and N is the nonaal force at the touching point. To be 
consistent with the assumption that forces occur only 
at isolated epots (and not as line- or area-forces) - 
an assumption which refleots the geometrical imperfeotlons 
of the rectangles - we postulate that these isolated epots 
are the only (point ei*ed) areas where friction occurs. 
This means in consequence that the geometry around the 
friction point does not affect the surface parameter, 
Furthermore we shall assume that the rectangles are made 
of the same material. Hence ^H can be considered constant 
for the whole system. 

There are three equilibrium conditions for each 
reotangle (Pig.9)» 

Z P x * forces in the direction of the x-axia 
* Z P- ■ forces In the direction of the z-axls 

£ M ■ moments with respect to the y-oxis 




* x* 



-y- 



* 
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2. Stability 

As In chapter I the nonaal forces must he nonnegatire« 
In addition the friction forces siuet obey 

where the 7. may be positive or negative, depending on 

the direction in which they have been introduced. 

3. Program 

In this 2-dimeneionel oaee with friction it is possible 
to use the same program as described In ohapter I. The 
trick is to express the condition of Sq.l in such a way 
that all forces simply have to be positive for atablllt 
This can be done by letting 

(2) 



»i ♦ "i 1 ' ■ rh 



-v. + d! 2) - mx* ijj 



■ 

There D) 1 ' and J>\ 2 ' both haTi to Vo positive for Eg..l 



P* 



to hold. Hence we simply have to replaoe each ?- in the 

equilibrium equations with the help of Eq.2 and add Eq # 
(derived from Eqs.2 and 3) . 



D<« ♦ D< 2 > - 2 ^ » t 



(4) 



■s 



Tho r weiil ting ay a ten of equationo can bo troctod oxaotl 

ae described In chapter I* 
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III. GENERAL CA3B WITH PBICTIOH 

1. Stat i os 

?ig«10 shows a typical configuration of blocks. Let ne 
consider the reaction forces between block 1 and 2. 
Following the convention of chapter I we locate the 
only reaction forces at the_ anoipoelad auota,(rig.ll)« 



A ■ 




JH.10.,.10 




yig.ii yi^.-x Pig.i2 



— lt-^aefi~dr"tfi&"BP6tB"w* ~aaYa~a-g o r aai f orce and & mo t ion 
force. Unfortunately, because of the additional dimension, 
the direction of each friction force la unknown 2-dimen- 
sionally, so that we must introduce two orthogonal com- 
ponents, F and P . Pig. 12 shows the reaction forces. 



The resulting friction force 1b then 



■ n , F* 



(5) 



and la limited again by 



IPI */t» - (6) 

As before /* 1b assumed to be oonBtant for the whole 

configuration. 
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Tho etatioe of a single bio cleat* described by the 
full aet of »lx equatione. 



1** 



EPy-0 



SIM, 
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Hote that Eq t 6 does not serve to detenlne unknown 
forces but ia a control Inequality which tells when 
the described system is unstable, i.e, unreallaable 
in the given f ore. 

2, Stability 

The stability criteria are as before. All normal forces 
must be positive, and all friction forces must obey 
Eqs,5 and 6* It is evident that a nonlinear relation 
enters the calculations. This constitutes the essential 
difference between the general case with friction on ..••/•■ 
the one hand and the 2-dimeneional case with friction 
as well as the 3-diaensional case without friction on 

the other hand, 

* 

w 

3. Program 

There are several ways of executing the stability test. 
One strategy le to use the linear equations end search 
for a solution which is stable in the normal forces* 
If there exists such a solution one needs only plug the 
values of the friction forces into the inequalities of 



** t 
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* 



the type Y?2 + p2'rf ^r (7) 

If they are satisfied, the configuration is stable. If 
they are not, there may ba three reasons, 
(i) Friction forces and nonnai forces have been diecar- , 
ded as statically redundant in an inconeiatent manner. 
Fig#13 ehowe euch a case. By some additional complexity, 
however, the program can be modified to avoid this case, 
(11) Forces have been discarded consistently, but still 
another choice of redundant forces may lead to the result 
"system stable*. ?ig,14 shows this pathological case. 
The noiroal force at either a or b haa to be discarded* 
If b ie aesumed to carry, block 3 might not slide on 2, 
If however the normal force at b is discarded, block 3 
gets additional load at a and the inequality will indi- 
cate "system unstable**. It seems impossible to avoid 
this pitfall and still have an efficient and faet sta- 
bility test.lr the baeic strategy of the program is kept, 
till) The configuration is in fact unstable - the deeired 

w 

result. 
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T-o" Pig. 13 



Fig,14 
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The complexity of other anya of executing the 
stability teat la mainly due to the nonlinearity of 
Eq.7. I beliave, however, that thie effort - on the 
part of the programmer - and thia additional compu- 
tation time - on the part of the program - ia not really 
Justified, becauae the upper limit of friotion forcea 
given by Eq,6 ia a rather crude approximation of a 
phyeically complex relationahlp. The eurface parameter 
/i , moreover, is not really well-defined but depends 
on each microaooplo scratch which may or may not be 
at a particular spot. In abort i If a reasonable appro- 
ximation of the nonllnearity of Kg,. 7 can be found, it 

will not degrade the overall performance decisively 
because it ' is not the first approximation. 



Pig- IS nhowa tha region for which F^ + g^ 



ax 





,P 


ft ' 


A 


/ 


Hi -' 


■ 






. 







*»$ 



Fig. 15 



If one approxlmatea the circle by a square, tha oon- 
ditione read |» x | 4 ^'N 



and 
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flow wa axe back to a linear restriction and can write 
aa In chapter II 



*x * D x ■ A 



v*r ->*'* 



■*y + D y 2) "^' N 



whore all D*a must be positive for the restriction* 

to be satisfied. ■« 

If we replace each P ± by N i" D i ^ d ad <* *** 
equation M 1 '* Dj 2 '» 2 Nj t The t orlglnal prograaras 
described in chapter I will perform the stability test 9 
and the extension to the general case with friction is 
carried out quits painlessly. 



- 
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APBENDIX 

I. FUNCTIONS TOW SOLVING aTAHILITT KQUATH Nh 

(SUP1 X) Takes as input a set of equations 
in the format illustrated in the xampli ■-, 
at the end of section IT'. SUP1 rends into 

core the print name* of the varlnblea appearing 
in the equations, as well as their coefficients. 
The coefficients are stored In a matrix whose 
row elements are the coefficients in order oT 
the corresponding equation pxprossed in the form: 

«f4*l + a i f 2?2 t *•*.+ «!,„*„ + b t - 0. 

(SKTU**) Nrings the enuatinns implicitly into 
the form dhnwn in iii) on pose 5, by applying 
appropriate row operation* tn the coefficient 
matrix. A row corresponding to an enuation 
solved for a variable x n in terms of variable* 
It ■ I * mX m ■PP* fl M BS follows: 

Where th« *i appears in the nth column, and the 
vnlun of b is positive. \ +1 in the nth 
comumn lndlCfut«4 a "negative 1 * oquat ion* 

(I/)OH) Applies the algorithm flowchorted on 
pace fi# The letters on the boxes in the figure 
coreespond to taps in the program as listed 
in section TIT. The program either outputs tht* 
atom UNSTARLK, the atom STABLE, at the atom 
CONTINUE.* In the latter case, another iteration 
of the LOOP proeram is indicated. 

(OUTPUT) Outputs a formatted version of the 
current state of the coefficient matrix. 



.: 
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II. KXAMPLKS 

Equations corresponding to these examples 
appear at the end of section III. 

Each block four units Hquare in the 'following 
diagrams {Figures 16 - 19) «re considered to 
have one unit of mass. The points at which the 
forces act are given letters A, H, etc., which 
are used as the corresponding force variables in 
the equations. 



KXJ 
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Figure 16 
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The force (P) and moment (M) equations for 
the situation in figure lfi art*: 
F: A + B - I 





Ml 


2A 


. 






P: 


C ♦ 


U . 2 






M: 


6 - 


3D - 






P: 


P t 


R =. 4 






M: 


12 


- 3P - 0. 






Aft 

txiti r ri V ii 


er executing the program Si, Hi . tl 


NIL 


D 



NIL 


A 8 
1.00 1 
2.00 
.00 
.00 
.00 
.00 


.00 
.00 

.00 
.00 
.00 
.00 


cor 

.00 .00 .00 
.00 .00 .00 
1.00 1.00 .00 
.00 -3.00 .00 
.00 .00 1.00 
.00 .00 -3. 00 


E NIL 

.00 -1.00 
.00 .00 
.00 -2.00 
.00 6.00 
1.00 -4.00 
.00 12.00 



After executing SK1W f the coefficients are: 



NIL 


A 


2 


•00 -1.00 


1 


1.00 .00 


3 


.00 .00 


* 


.00 .00 


t 


.00 .00 


s 


.00 .00 


* 





C P C NIL 

.00 .00 .00 .00 1.00 

.00 .00 .00 .00 .00 

1.00 .00 .00 

.00 -1.00 .00 

.00 .00 .00 

.00 .00 -1.00 



.00 


.00 


.00 


2.00 


1.00 


.00 


.00 


4.00 



■TA«tC 



Tl** mmberfl in the leftmost vertical column are 
the j»*>ri«l numbers at the vnriabl* which are Rolved 
for. For example , the first equation above is 
solved for the .second variable, R. 

Upon execution of LOOP, the atom STABLE is 
output t because all pouations have been reduced to 
positive ones: 



-la- 



NlL 



A 

.00 

-1.00 
.00 
.00 
.00 

.## 



-1 



.00 
.00 
.00 
.00 
.00 
.99 



.00 
.00 
-1.00 
.00 
.00 
.00 



.00 
.00 
.00 
•1.00 
.00 

•u 



.00 
.00 
.00 
.00 
.00 
-I. 00 



I 

.08 

.00 
.00 
.00 
-1.00 
.00 



NIL 
I.M 

.00 
.00 

3.00 
.00 

4.QQ 



BX2 



is 



gOv|Tt 



Ab before, the^blocks nre cormiflereil to 
have unit na.ss ; 



- * . 
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Figure 17. 
The equations Tor this situation ape: 
P: A*B*C + 0-l 
M: 2 - 2B - 3C - 4D - O 
F: E + r-1+A + B 
Ml SF - 2 - 2A - 4H - () 
F: G + B-l+E + F 
M: E+2+4P-3H-0 
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The results of applying SUPI, SETUP, and LOOT (three tines) are: 





A 


a 


e 


1 


1 


' 8 


H 




NIL 


NIL 





1.00 


1.00 


1.00 


1.00 


.00 


.00 .00 


.00 


-1 .00 





.00 


-2.00 


-9.00 


-4.00 


.00 


.00 .00 


.00 


2.00 





-1.00 


-1.00 


.00 


.00 


1.00 


1.00 .00 


.00 


-1.00 





-2.00 


-4.00 


.00 


.00 


.00 


3.00 .00 


.00 


-2.00 





.00 


.00 


.00 


.00 


-1.00 


-1.00 1.00 


1.00 


-1.00 



NIL 


.00 


.00 


.00 

e 

-1.00 
.00 
.00 
.00 
.00 
.00 


.00 



.00 

1.00 
.00 
.00 

.00 
.00 


1.00 


4.00 .00 


-3.00 

H 

.00 
.00 
.00 
.00 
.00 

-1.00 


2.00 


NIL 
3 

4 
■ 
ft 
7 
e 

8 


A 

•A. 00 

-3.00 

.33 

.66 
.00 
.99 


B 

-2.00 
-1.00 
-.33 
1.33 
-.60 
1.66 


E 

.00 
.00 

-1.00 
.00 
.00 
.00 


f c 

.00 .00 
.00 .00 
•00 .00 
-1.00 .00 
•00 -1.00 
.00 .00 


NIL 

2.00 

1.00 

.33 

.66 

.33 

1.66 


— 


-_ 
















NIL 

a 

6 
3 
1 

• 


A 

.00 

-3.00 

.33 

.66 

-4.00 

.90 


B 

-i.oo 

.00 
.00 
.00 
.00 
.00 


c 

.00 
.00 
.00 
.00 
-1.00 
.00 

9 i 

.00 
.00 
.00 
.00 
1.00 - 
.00 


D 

.00 
1.00 
.00 
.00 
.00 
.00 


E 

.00 

• on 

-1.00 
.00 
.00 
.00 

I 1 

.00 
.00 
•1.00 
.00 i 
.00 
.00 


* c 

•00 -1.S0 
-00 1.50 
.00 .50 
-1.00 -2.00 
.00 3.00 
•00 -2.50 


H 

.00 

.00 
.00 
.00 
.00 
-1.00 

4 

.00 
.00 
.00 
.00 
.00 
1.00 


NIL 
.50 
.49 
.16 
1.33 
.99 
2.50 


NIL 

1 

2 

6 



a 


A B | 
-1.00 .oo 
•00 -1.00 
.00 .00 
•00 .00 
.00 ,00 . 
•00 .00 


1 1 

.33 
.00 

.11 • 

.22 

1.33 

.33 


c » 

.00 .50 

•oo -i.ao 

•00 .66 
1.00 -1.66 
•00 1.00 
.00 -1.09 - 


MIL 
.16 
.50 
.22 
1.44 
.33 
2.66 


NIL 

1 
2 
5 
6 
J 
• 

a 


A B 
-1.00 

.00 - 


c 

.00 
1.00 




.00 
.00 


E 
.33 

.00 


F 
.00 
.00 


e n 

.00 .90 
.00 .1.50 


NIL 

.00 .16 
.00 .50 


#00 


.00 


.00 


.11 - 


1.00 


.00 .66 


.00 


.22 


.00 


.00 


.00 


.22 


.00 - 


1.00 -1.66 


.00 


■ * m 

1.44 


.00 

_ — 


.00 - 


1.00 - 


1.33 


.00 


.00 1.00 


.00 


.33 


.00 


.00 


.00 


.33 


.00 


.00 -1.99 - 


1.00 


2.66 
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At the end of the third iteration, the LOOf 
pfocram output the atom STAIU.K. 



The Situation in as follows 




The force and moment count inntt: 

P: A + H*-C»n=l 

Mi 2A + B-C-2D-0 

Pi A + R + l-K + P 

H: A - E ♦ 2H - 2F - 

Fj C+D + l-G + H 

H: 2C - 20 + D - H - 

The states oT the coefficient matrix after SUFI, 
SKTUF, and 2 iterations of LOOF: 



iU A I B I * ' 

1.00 1.0* 1.00 1.00 .00 .00 

2.00 1.00 »1.00 -t.00 .00 .00 

1.00 1.00 .00 .00 -1.00 -1.00 

1.00 2.00 .00 .00 -1.00 -2.00 

.10 .00 1.00 1.00 .00 

.00 .60 t.OO 1,10 .00 



• H NIL 

.00 .00 -I.M 

.00 .00 .00 

.00 .00 1.00 

.00 .00 .00 

.00 -1.00 -1.00 1.00 

.98 -1.00 -1.00 .00 



~ . p 
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B J- 


NIL 

3 


■ - 


- 


— 


— 


■ — 


8 








1 * — *■ *. 




a a 


c 





E 


F 


H 


NIL 






•4*00 »3,00 - 


1.00 


.00 


.00 


.00 


.00 


.00 


?.oo 






A 


-3*00 -3.00 


.00 


I. 00 


.00 


.00 


.00 


.00 


t.oo 






5 

• 


WOO #00 


.00 


.00 - 


1.00 


.00 


.00 


.00 


?.oo 






.00 -1. 


,00 


.00 


.00 


.00 


1.00 


.00 


.00 


1.00 






f 

• 


•4,00 -3, 


.00 


.00 


.00 


.00 


.00 - 


I. 00 


.00 


1.00 




- 


3,00 2. 


.00 


.00 


.00 


.00 


.00 


.00 - 


1.00 

H 

.00 


1.00 






NIL 

2 


A B 
M.33 - 


1.00 


c 

.00 




.00 


E 

.00 


f 

.00 


6 

-.33 


NIL 
.33 






4 
3 

j 


••33 


.00 


.00 


1.00 


.00 


.00 


.66 


.00 


.33 






1.00 


• 00 


.00 


.00 
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After the second iteration, the atom UNSTAR1. 
was output by I OOP. 

m s ^ , 

Th*5» shown in fiRure 19. The square 

blocks have unit pass, on| the others have mis- 
proportional to their areaH, 




/if I I II' it/ t'/ / tt/ / / / / / / / 



y 



Figure 19. 
The force and moment equations: 
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A + B - 1 


Ml 


i * fc - B • 
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A+B*3-C + D'+E+P 
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A . 2 * 2H » D * E * 2F 


Pi 
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[1m- solution to this stability problem, 
by nouns or the programs Riven, i8 leTt <« an 
exercise* 
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III. LISTINGS 



(DEFPROP Sui'l(L'^C.u)i"'Gii| J vlist EOS VAR) 
(SeTQ I 0) 

(8CTQ AIHAPCARlFUNcTION(bAMBpA(Y)ICONacSeT0 KADDl IMYIMXM 
(SETC EBB I) 

iseto i 0) 

(SETQ VtlST NIL) 
IHAPC(FUNCTION(LAHBOA1Y) 
(HAPClFUNCT10N(LA»«B0AIZ> 
IAND(N0TIA9S0C(C»» IIVlISTI) 

(8ET0 VLIST(C0NS(COMS(CAR ZH9ET0 IfADDl I t ) > VLIST) I I I ) 
(CDO* Y))l) 
X) 
(SETQ VAR 1) 

(DtFOSITIOETlOUOFE FOSMBUOTE SYHUEQ9) 
IDEPOSITdiETIQJOTE VARHBUOTE SYHMVAR) 
(CONOUCNCATERPISETQ I i - c I • 

(PLUS flPORQfTJMESUDDl EQSHPLUS 2 VARM) 
BPENO) ill 
|R£TURN(CONS KOuOTeiHOPE BW hORQS NEEDED)))))) 
IC0ND(C61E*TEHP CBS 50. I lReTURN(BUOTF.|T00 MANY E0UTI0N8I I ) ) ) 
(SETQ I 0) 
RTIDEP0S1T(PLUS(GET(QU0TE IND2H0U0TE SVMDT) 

(BOOLE 7 2O00O00(PLU8 B»0RGITIHE3 1 f *DDl EQS>)>>> 
(OEPOSITIPLUSICETfOUOTE IND3HBU0TE 8VM))T) 

(BOOLE 7 3000QOO(PLUS B»0RG(TIHE9 !(ADOl E09))))> 
(CONDI (GREATERP(SETG IlAUDJ 1))(ADD1 VA*H(CO Tl | | | 
(SO NT) 

tl (deposit (get(ouote i ndc2 ) (quote syndiboqle 7 2000000 
(Plus bporgiti«es(addi eb9)(aodi vaRihu 
(deposit (get(ou0te indp2hqu0te 9yn))(b0nle 7 2900000 bp0r6)) 

(CLEAR) 
(HAPC(FUNCTION(LANBDA(Y) 
IMAPC(fUNCT10*«ILA*BDAlZl 

IIN8EKT(CDR(AS50C(CAR I > VLi ST ) I (CAR YUCtlR Z)l )) 

(Cuor yd u 
x> 

inAPC('UNCTIQN(LAM!tDA(YHI'JSERT(ADDl VARHCAP YMCADR Y) >)) 

X) 
IMAPCl^UNCf 10N(LAM»DAIX) I INSERTtCDR X)0(CAP XHDVLIST) 
(OUTPUT) 

(HtTUHN NIL) MEXPRI 

IflApClf UNCI ION(LA"80A(X YMPUTPROP XtPLUS Y BPORCXQUOTE 8YH)))t 
IQUQTE IfcflS VAR [N0P2 INDC2 IND2 IN03M 
I0U0TE10 12 3 4 51. ) ) ) 

(StTQ BPONB (PLUS BPQRC 104.)) 
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(lap 


SCI UP SUBR) 


s 


(hove 2 EOS) 


SI 


(HOVE 1 VAR) 


■g 


ISMPN* 1ND? 1) 




(80JC 1 321 




(ROVbM* 1 (NDP2) 




(CALL 2(0U0TE DONSUd)) 




ISOJC 2 SI) 




(MOVE 2 EOS) 


Si 


(HQVE* 3 INDC2I 




(JUHPCE 3 961 




(HQVt 1 VAN) 




(AUDI 1 1| 


M 


(HOVE* 3 IN02 11 




CHOVNH* 3 IND2 11 




(SOJC 1 34) 


sa 


(SOJG 2 S3) 




(POP J P) 


NIL 


(LAP 


LOUP SUBR) 


A 


i "Uvfc 2 EOS) 


Al 


(HOVE* 3 IN0C2» 




(JUMPN 3 A3l 




(HOVE* 1 IN0P2] 




1HOVE* 3 IND2 It 




(JUHPL 3 A3) 




(MUVE 1 VAR) 




('LCI 1 1) 


AS 


(MOvE* 3 IND2 n 




INOVNH* 3 IND2 1> 




1SOJG 1 A2> 


A3 


(S0J6 2 Al) 


1 


(HOVE 2 EOS) 


■ 1 


(HOVE* I INUP2) 




(HOVE* 3 IND2 1) 




(JUHPCE 3 B2| 




I30J6 2 an 




(MOVE! 1 (QUOTE STAtfLE) > 




(POP J P) 


B8 


(HOVE* 2 NEGED) 


C 


(HOVE 2 EOS) 


CI 


(HOVE 1 VAR) 


C2 


(HOVE* 3 IND2 1 1 




(JUHPL 3 C3> 




(J.OJG 1 C2) 




IHOVE1 1 (QUOTE UNSTABLE)) 




(POPJ P) 


ca 


(SOJG 2 CD 
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11 


(HOVE 2 NEOEO) 




(MOVE I VAR) 


01 


(6MPLP IN02 1) 




(B0J6 1 Dl) 


E 


(HOVE 4 BIB) 




(HOVE 2 EQS} 


ei 


IHOVN* 3 IN02 1 ) 




(JUHPLE 3 E2) 




(MOVE* ft INDC2) 




CDV 6 3) 




(CAHL 6 4) 




(JRST E2) 




(MOVE ft 2| 




(HOVE 4 6) 


£2 


(90JC 2 El) 




(HOVE 2 S) 




IHQVEMP I 1NDP2) 




(CALL 2IQU0TE RONSUB)) 


f 


(HOVE 1 VAR) 




■ADD1 1 11 




(HOvEl 3 1) 


f\ 


(HOVE* 4 IND2 1) 




(£XCH» 4 IND3 1) 




(EXCh# 4 IN02 1) 




(SOjBE 1 ■!) 


B 


(HOVE 2 EOS) 


61 


(HOVE 1 VAR) 




(ADDI i ll 



02 (NQVE* 3 IN02 1J 

IJUHPO 3 06) 
tsujc l 02) 
(HOVE 1 VAR) 
63 (HOVE* 3 1N02 1) 

(JUHPE 3 03) 
(HOVE 3 COS) 
0* (bCT2H» 1ND3 1) 

(S0J6 3 64) 
65 <D0J6 1 03) 

(HOVE* 1 1N0P2) 
(HOVE 3 ONE) 
(HOVNH* 3 1ND2 1) 
Oft (SOJC 2 Oil 

(HOVE 2 EOS) 

53 (HOVE* 3 1NDC2) 
IJUHP6E 3 Sft) 
(HOVE 1 VAR) 
(ADUI 1 1) 

54 (HOVE* 3 1N02 1) 
(HOVNH* 3 IND2 1) 
(SUJ6 1 S4) 

Sft (S0J6 2 53) 

(HOVE) liauOTC CONTINUED 
(POPJ PI 

UlU 1377777777777) 

ONE (201400000000) 

NEOEO 10) 
NIL 
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(DPS 
t£T£M* 402020000000 
rtOVflt 214020000000) 

(CAP RDH5UB SUSR) 

IHOVEH 1 R4> 

cmove 3 R5) 

(PDV* 3 IND2 11 

(HOVE 1 VAR) 

tADU! 1 1) 
Rl <pMPh# 3 INQ2 II 

(MUJb 1 Rl) 
I HOVE 1 R4> 
(HOVE 3 R5) 
CMOVEH* 3 IND2 1 ) 

IMOVt 3 EQ5) 
R2 ICAMN 3 2) 

UR8T R6) 

IMOVE 1 R4I 

(MOVE* 4 IN03 U 

UUHPE 4 R6) 

(HOVE 1 VAR) 

CA0D1 1 t) 
9t^ (MOVE* 5 1N02 1) 

IJUHPE 5 R7) 

IFKP 5 41 

<PS6» 5 IND3 11 

(MGVNM* 5 IND3 1) 

nr ciojc l R3i 

*b 130JC 3 R2) 

(HOVE 1 VAR) 

(AUDI 1 II 
»fi {MOVE 3 EOS) 

R9 (HOVHR 4 IN03 1) 

(CAH6 4 RIO) 

(SETZH* IN03 1) 

(30JG 3 H9) 

(SOJG 1 RO) 

CPOPJ pi 
RLO (140400000000) 
K4 (0) 

R5 1201400000000) NIL 
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(LAP OUTPUT SUB*) 

<10VEI 2 0) 
Tl CMOVEI 1 0) 

T2 (HOVE* 3 IND2 1) 

(nOVEM 3 T3I 

1H0VEM 2 T5) 

(HOVEH 1 T*| 

(HOVE* 1 IND2 1) 

(MOVE! 2(0UOTE FUONJHM 

(CALL 2 (QUOTE MAKNUt) ) 

(move 4 n 

(MOVE 3 T3I 

(HOVE 1 T4) 

(MOVE 2 TSI 

ICALL *(QU0TE OUTPUTM) 

(MOVE 1 T4) 

(HOVE 2 T5) 

(LAMti 1 VAftJ 

(AOJA 1 T2I 

(AOOI 2 1) 

(CAMLE 2 EOS) 

(KOPJ P| 

WRIT Til 
T3 (01 
T« (01 
T5 (01 NIL 
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(LAP CLEAR SUBR) 

(HOVE 2 EOS) 

CI (MOVE 1 VAff) 

(AOUI 1 1) 

C2 (SET2H* IND2 II 

(SUJSE 1 C2I 
(SOJSE 3 CI ) 

1pqpj p) mil 
(lap insert subri 

(SUB I 1 II 
(SUB I 2 1) 
(JUHPt 2 III 
(PUSH P 1| 
I PUSH P 2| 
(MOVE 1 3| 
(PUSHJ P NUHVALI 
(MOVE 3 1) 
(POP P 2) 
(POP P 11 
11 (MOVEMP 3 IND2 II 

(POPJ PI 
NIL 
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(0EFPROP OUTPUT-ILAHBOAIX T I "HPROCd BaS- .NOPOINT LINED 

ibetq base 10.) 

( 5 £ t 3 «nopoint t) 

(SiTQ LlNCL 120.) 

(CONDIIAND X TMSPT NMRfiTURN nilih 

ISLTQ 1 ICOND(Y(HAKNuH ZlOuOTE PllNuHD) 

(X 2) 1) 
(ANDINOT XMNOT YlfTYO i*)> 
(ANDINOT X) (TERPRI ) ) 
(PRINCIfaUOIE / I* 
(PRINC l> 

(tCfQ 1O01F 51FLAT3IIE ID) 
RT 1COND1 iMINUSPlSfcTO JISUS1 I ) ) If RETURN NjLl ) ) 
(PRINCIQUOJE / M 
160 R1) ))EXPR| 

(UEFPROP SPT (LAMBDA (XHPROBI I BASE *N0PO!NY J) 
ISETO "NOPOINT Tl 
(StTQ a.bfi 10.) 
ICONOUMiNUSP XHSETQ XfTiMCS X -1IMIETQ J(OUOTE /-))) 

II (SETO JIOUOTE / I > ) ) 
(SeTO llEXPLODEUETQ XlFlX(T|ME8 100. *)>>() 
ICQND 
UCREaURP X 99Q9,)(PRHC(OU0TE. I / BIS/ II) 
( I6REAT&RP X 998.) 

I PR INC J) 

lPR|NC(CAR I)) 

(PR|NC(CADR ll) 

iPRINCifiUOTE /.)) 

IPRINCfCADDR 1|) 

|PRINC(CADDOR l|) | 
llflREAIERP X 99.) 

(PR1NC (QUOTE / I) 

I PR INC J) 

IPRINCiCAR II) 

(PRINCIQUOTE /.)) 

{PRINCICAOR ID 

<PR1NC(CADDR 1)1 ) 
(ItiREATERP X 9.) 

IPRINC(OUOTE / / )1 

(PRINC J) * 

IPRINCIOUOTE /.)) 

(PRINCtCAR II) 

IPRINCICADR 1)1 ) 
IT 

(PRINClfiUOTE / / II 

(PRINC J) 

|PRINC(OUOTE /.Ol) 

IPRINCICAR I)| | ) 
{RETURN NIL) I >EKPR| 
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>1.0) <E . l.OXF . l.OI ) 
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ISETU EH3IQUQTEI 
1-1 
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I 1 



.0 
.0 
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.0 
.0 
• 



IA 
(A 

I* 
IA 
IC 
IC 



1.0) IB 
2.0MB 

1.0X8 
1.01 IE 
1.0) ID 
2.01 (C 



ISETO EX9IQU0TE 
(-1 



I 



.0 IA 
.5 IB 

■ OIA , 

.:■ i * , 

• 0(C . 

• 0(C - 
.016 . 

• 31F » 
.016 . 

U . 
.016 . 



1.0) IB 
-1.0)1 

l.OI IB . 

1.0)18 , 

1.0)10 , 

0.5IID , 

l.OXF , 

l.OIIJ . 

1.01IH . 

1.01IK , 

2.0KH , 



1.0) 
1.0) 
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IC 
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IB 
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-2.0)10 
1.0)) 

i. one 

2.0)10 

1.01 

1.5) 

1.0) 

1.0) 

1.0) 

l.OXL 

1.0)11 



(6 
IC 
I I 
I 
II 



1.0X0 
-l.OXD 

'l.Ollf 
2.0XF 

-l.OXH 
l.OXH 



■1.0) ID 
•1.0) (E 
•l.OXH 
-0.5XH 

•l.OIIJ 

1.0) 

•i.nxM 

l.OXK 



1.0)1 
-2.0)1 
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